Private Sub CmdDelete_Click(ByVal sender As System.Object,
       ByVal e As System.EventArgs) Handles CmdDelete.Click
     rstProducts.Delete
     MsgBox("Record has been deleted", vbInformation, Me.Text)
     Call cmdNext_Click
End Sub
